home *** CD-ROM | disk | FTP | other *** search
/ Delphi Programmer's Power Pack / Delphi Volume 1.iso / s_to_z / tfincalc / fincalc.dfm / fincalc.txt next >
Text File  |  1996-09-15  |  14KB  |  531 lines
  1. object FormCalc: TFormCalc
  2.   Left = 444
  3.   Top = 98
  4.   BorderIcons = [biSystemMenu, biMinimize]
  5.   BorderStyle = bsSingle
  6.   Caption = '    FinCalc'
  7.   ClientHeight = 312
  8.   ClientWidth = 181
  9.   Color = clTeal
  10.   Font.Color = clWindowText
  11.   Font.Height = -13
  12.   Font.Name = 'System'
  13.   Font.Style = []
  14.   Icon.Data = {<image000.ico>}
  15.   KeyPreview = True
  16.   PixelsPerInch = 96
  17.   OnCreate = FormCreate
  18.   OnKeyDown = FormKeyDown
  19.   OnKeyPress = FormKeyPress
  20.   TextHeight = 16
  21.   object Notebook1: TNotebook
  22.     Left = 0
  23.     Top = -5
  24.     Width = 182
  25.     Height = 318
  26.     Color = clNavy
  27.     ParentColor = False
  28.     TabOrder = 0
  29.     object TPage
  30.       Left = 0
  31.       Top = 0
  32.       Caption = 'REingabe'
  33.       object ZurueckButton: TSpeedButton
  34.         Left = 59
  35.         Top = 104
  36.         Width = 30
  37.         Height = 30
  38.         Glyph.Data = {
  39.           20020000424D2002000000000000760000002800000019000000190000000100
  40.           0400000000009001000000000000000000000000000000000000000000000000
  41.           80000080000000808000800000008000800080800000C0C0C000808080000000
  42.           FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
  43.           7777777777777000000077777777777777777777777770000000777777777777
  44.           7777777777777000000077777777777777777777777770000000777777777777
  45.           7777777777777000000077777777700077777777777770000000777777770007
  46.           7777777777777000000077777770007777777777777770000000777777000777
  47.           7777777777777000000077777000777777777777777770000000777700077777
  48.           7777777777777000000077700000000000000000007770000000770000000000
  49.           0000000000777000000077700000000000000000007770000000777700077777
  50.           7777777777777000000077777000777777777777777770000000777777000777
  51.           7777777777777000000077777770007777777777777770000000777777770007
  52.           7777777777777000000077777777700077777777777770000000777777777777
  53.           7777777777777000000077777777777777777777777770000000777777777777
  54.           7777777777777000000077777777777777777777777770000000777777777777
  55.           7777777777777000000000000000000000000000000000000000000000000000
  56.           00000000}
  57.         Spacing = 0
  58.         OnClick = ZurueckButtonClick
  59.       end
  60.       object VorzeichenButton: TSpeedButton
  61.         Left = 94
  62.         Top = 244
  63.         Width = 30
  64.         Height = 30
  65.         Glyph.Data = {
  66.           20020000424D2002000000000000760000002800000019000000190000000100
  67.           0400000000009001000000000000000000000000000000000000000000000000
  68.           80000080000000808000800000008000800080800000C0C0C000808080000000
  69.           FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
  70.           7777777777777000000077777777777777777777777770000000777777777777
  71.           7777777777777000000077777777777777777777777770000000777077777777
  72.           7777777777777000000077770777777770000000000770000000777770777777
  73.           7000000000077000000077777707777777777777777770000000777777707777
  74.           7777777777777000000077777777077777777777777770000000777777777077
  75.           7777777777777000000077777777770777777777777770000000777777777770
  76.           7777777777777000000077777777777707777777777770000000777777007777
  77.           7077777777777000000077777700777777077777777770000000777777007777
  78.           7770777777777000000077777700777777770777777770000000770000000000
  79.           7777707777777000000077000000000077777707777770000000777777007777
  80.           7777777077777000000077777700777777777777077770000000777777007777
  81.           7777777777777000000077777700777777777777777770000000777777777777
  82.           7777777777777000000000000000000000000000000000000000000000000000
  83.           00000000}
  84.         OnClick = VorzeichenButtonClick
  85.       end
  86.       object LBDisplay: TListBox
  87.         Left = 24
  88.         Top = 16
  89.         Width = 135
  90.         Height = 76
  91.         Color = clWhite
  92.         Font.Color = clBlack
  93.         Font.Height = -13
  94.         Font.Name = 'MS Sans Serif'
  95.         Font.Style = [fsBold]
  96.         ItemHeight = 16
  97.         Items.Strings = (
  98.           '')
  99.         ParentFont = False
  100.         TabOrder = 0
  101.         OnEndDrag = LBDisplayEndDrag
  102.         OnMouseDown = LBDisplayMouseDown
  103.         OnMouseMove = LBDisplayMouseMove
  104.       end
  105.       object ClearButton: TButton
  106.         Left = 24
  107.         Top = 104
  108.         Width = 30
  109.         Height = 30
  110.         Caption = 'C'
  111.         Font.Color = clBlack
  112.         Font.Height = -16
  113.         Font.Name = 'Terminal'
  114.         Font.Style = []
  115.         ParentFont = False
  116.         TabOrder = 1
  117.         OnClick = ClearButtonClick
  118.       end
  119.       object ProzentButton: TButton
  120.         Left = 94
  121.         Top = 104
  122.         Width = 30
  123.         Height = 30
  124.         Caption = '%'
  125.         Font.Color = clBlack
  126.         Font.Height = -16
  127.         Font.Name = 'Terminal'
  128.         Font.Style = []
  129.         ParentFont = False
  130.         TabOrder = 2
  131.         OnClick = ProzentButtonClick
  132.       end
  133.       object GeteiltButton: TButton
  134.         Left = 129
  135.         Top = 104
  136.         Width = 30
  137.         Height = 30
  138.         Caption = '/'
  139.         Font.Color = clBlack
  140.         Font.Height = -16
  141.         Font.Name = 'Terminal'
  142.         Font.Style = []
  143.         ParentFont = False
  144.         TabOrder = 3
  145.         OnClick = Button_OperatorClick
  146.       end
  147.       object Eing7Button: TButton
  148.         Left = 24
  149.         Top = 139
  150.         Width = 30
  151.         Height = 30
  152.         Caption = '7'
  153.         Font.Color = clBlack
  154.         Font.Height = -16
  155.         Font.Name = 'Terminal'
  156.         Font.Style = []
  157.         ParentFont = False
  158.         TabOrder = 4
  159.         OnClick = ButtonZahlClick
  160.       end
  161.       object Eing8Button: TButton
  162.         Left = 59
  163.         Top = 139
  164.         Width = 30
  165.         Height = 30
  166.         Caption = '8'
  167.         Font.Color = clBlack
  168.         Font.Height = -16
  169.         Font.Name = 'Terminal'
  170.         Font.Style = []
  171.         ParentFont = False
  172.         TabOrder = 5
  173.         OnClick = ButtonZahlClick
  174.       end
  175.       object Eing9Button: TButton
  176.         Left = 94
  177.         Top = 139
  178.         Width = 30
  179.         Height = 30
  180.         Caption = '9'
  181.         Font.Color = clBlack
  182.         Font.Height = -16
  183.         Font.Name = 'Terminal'
  184.         Font.Style = []
  185.         ParentFont = False
  186.         TabOrder = 6
  187.         OnClick = ButtonZahlClick
  188.       end
  189.       object MalButton: TButton
  190.         Left = 129
  191.         Top = 139
  192.         Width = 30
  193.         Height = 30
  194.         Caption = 'x'
  195.         Font.Color = clBlack
  196.         Font.Height = -16
  197.         Font.Name = 'Terminal'
  198.         Font.Style = []
  199.         ParentFont = False
  200.         TabOrder = 7
  201.         OnClick = Button_OperatorClick
  202.       end
  203.       object Eing4Button: TButton
  204.         Left = 24
  205.         Top = 174
  206.         Width = 30
  207.         Height = 30
  208.         Caption = '4'
  209.         Font.Color = clBlack
  210.         Font.Height = -16
  211.         Font.Name = 'Terminal'
  212.         Font.Style = []
  213.         ParentFont = False
  214.         TabOrder = 8
  215.         OnClick = ButtonZahlClick
  216.       end
  217.       object Eing5Button: TButton
  218.         Left = 59
  219.         Top = 174
  220.         Width = 30
  221.         Height = 30
  222.         Caption = '5'
  223.         Font.Color = clBlack
  224.         Font.Height = -16
  225.         Font.Name = 'Terminal'
  226.         Font.Style = []
  227.         ParentFont = False
  228.         TabOrder = 9
  229.         OnClick = ButtonZahlClick
  230.       end
  231.       object Eing6Button: TButton
  232.         Left = 94
  233.         Top = 174
  234.         Width = 30
  235.         Height = 30
  236.         Caption = '6'
  237.         Font.Color = clBlack
  238.         Font.Height = -16
  239.         Font.Name = 'Terminal'
  240.         Font.Style = []
  241.         ParentFont = False
  242.         TabOrder = 10
  243.         OnClick = ButtonZahlClick
  244.       end
  245.       object MinusButton: TButton
  246.         Left = 129
  247.         Top = 174
  248.         Width = 30
  249.         Height = 30
  250.         Caption = '-'
  251.         Font.Color = clBlack
  252.         Font.Height = -16
  253.         Font.Name = 'Terminal'
  254.         Font.Style = []
  255.         ParentFont = False
  256.         TabOrder = 11
  257.         OnClick = Button_OperatorClick
  258.       end
  259.       object Eing1Button: TButton
  260.         Left = 24
  261.         Top = 209
  262.         Width = 30
  263.         Height = 30
  264.         Caption = '1'
  265.         Font.Color = clBlack
  266.         Font.Height = -16
  267.         Font.Name = 'Terminal'
  268.         Font.Style = []
  269.         ParentFont = False
  270.         TabOrder = 12
  271.         OnClick = ButtonZahlClick
  272.       end
  273.